home *** CD-ROM | disk | FTP | other *** search
/ The 50th Anniversary of …National Assembly Library / The 50th Anniversary of the National Assembly Library.iso / message.dxr / 00056_Slide_Button.ls < prev    next >
Encoding:
Text File  |  2002-02-18  |  1.3 KB  |  53 lines
  1. property pmin, pmax, pwidth, pMember, pSprite, ptracking, pDuration
  2. global gslide
  3.  
  4. on beginSprite me
  5.   pmin = sprite(gslide).left + 5
  6.   pmax = sprite(gslide).right - 5
  7.   pMember = sprite(me.spriteNum).member
  8.   pSprite = sprite(me.spriteNum)
  9.   ptracking = 0
  10.   pwidth = pmax - pmin
  11.   pDuration = sprite(26).duration
  12. end
  13.  
  14. on exitFrame me
  15.   if ptracking then
  16.     pSprite.locH = max(min(the mouseH, pmax), pmin)
  17.   else
  18.     tPercent = float(sprite(26).currentTime) / pDuration
  19.     pSprite.locH = pmin + integer(tPercent * pwidth)
  20.     if pSprite.locH = pmax then
  21.       pSprite.locH = pmin
  22.       videoseek(sprite(26), 0)
  23.     end if
  24.   end if
  25. end
  26.  
  27. on mouseDown me
  28.   ptracking = 1
  29. end
  30.  
  31. on mouseUp me
  32.   refresh(me)
  33. end
  34.  
  35. on mouseUpOutSide me
  36.   refresh(me)
  37. end
  38.  
  39. on refresh me
  40.   ptracking = 0
  41.   tPercent = (float(pSprite.locH) - pmin) / pwidth
  42.   videoseek(sprite(26), integer(tPercent * pDuration))
  43.   videoplay(sprite(26))
  44. end
  45.  
  46. on getBehaviorDescription me
  47.   return "┬┐├â ├╜┼á┬╝┬⌐├₧┼╜├É├å┬Ñ┬¼ Mpeg├╛┬┤┼á├Æ┬┐┬½ ┬íΓÇô┬½ΓÇí┬¬├¢┬╝┬¼├₧┬╢ ┼╜Γäó┬╝├₧┼╜┬¬┬Ñ┬¼ ├╜├╜├░├¢┬┐├â┬╡├é┬┐┬½ " & RETURN & "├╛╦å├É┬É├╕┬░ ┬┐┬╛├╕├Ä ├╜┬»┬╝┬╡┬Ñ┼ô┬Ñ┼╕."
  48. end
  49.  
  50. on getBehaviorTooltip me
  51.   return "┬┐├â ├╜┼á┬╝┬⌐├₧┼╜├É├å┬Ñ┬¼ Mpeg├╛┬┤┼á├Æ┬┐┬½ ┬íΓÇô┬½ΓÇí┬¬├¢┬╝┬¼├₧┬╢ ┼╜Γäó┬╝├₧┼╜┬¬┬Ñ┬¼ ├╜├╜├░├¢┬┐├â┬╡├é┬┐┬½ " & RETURN & "├╛╦å├É┬É├╕┬░ ┬┐┬╛├╕├Ä ├╜┬»┬╝┬╡┬Ñ┼ô┬Ñ┼╕."
  52. end
  53.